"0","s.probs$probs <- rexp(20, rate = 1)
total <- sum(s.probs$probs)
s.probs$probs <- s.probs$probs/total

sub.iterations2 <- subsample.pool(s.probs)

p <- ggplot(sub.iterations2,aes(N,S,group=iteration,colour=iteration))
p + geom_line() + geom_point()"
